home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / colortst.prg < prev    next >
Text File  |  1984-09-25  |  2KB  |  38 lines
  1. **************************************************************
  2. *                                                            *
  3. *  COLORTST.PRG    By John Chidester                         *
  4. *                  5515 N. 7th Street, Suite 5-169           *
  5. *                  Phoenix, AZ 85014                         *
  6. *                                                            *
  7. *  Created 09/24/84                                          *
  8. *  Requires: dBaseII  (Ver 2.4)                              *
  9. *            Color adapter & color monitor (IBM PC)          *
  10. *            or COMPAQ Computer                              *
  11. *                                                            *
  12. *  A development tool for dBaseII programmers.               *
  13. *  Displays 'say' and 'get' in different colors allowing     *
  14. *  you to choose which colors to select for your             *
  15. *  command files.                                            *
  16. *                                                            * 
  17. **************************************************************
  18. STORE 0 TO x
  19. STORE 0 TO y
  20. STORE 0 TO COUNTER
  21. @ 23,23 SAY ' '
  22. ****** RUN THROUGH ALL THE COLOR VARIATIONS
  23. DO WHILE x<=256
  24.    SET COLOR TO x,y
  25.    ?' This is color ',str(x,3,0)+','+str(y,3,0),'                          '+;
  26. '                             '
  27.    STORE x+1 TO x
  28.    STORE y+1 TO y
  29.    STORE 1+counter TO counter
  30. ****** 'COUNTER' ROUTINE PAUSES BETWEEN 'SCREENS' 
  31.    IF counter=23
  32.      WAIT
  33.      STORE 0 TO counter
  34.    ENDIF
  35. ENDDO
  36. ****** RETURN COLOR TO 'STANDARD'
  37. SET COLOR TO 15,15
  38. RETURN